Top 10k strings from Utility Compilation 04 (19xx)(-).trd
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
42 161+m(k,c) 23 Skopirow%i 14 ;"Routine in ROM"; 12 ********************** 9 *********************** 7 ********************* 6 THIS ROUTINE IS NON-RELOCATABLE 6 Sbegalka 198 5 ______________________ 4 Sprygalka 128 4 PPress ENTER to continue < > 4 MASTERFILE ver 06 4 ISABOTEUR 4 IBEACHHEAD 4 FFFFFFFFFFFFFFFFFFFF 4 Duskorennaq zagruzk 4 A,B,C$,DUR: 4 ;" Cop/q "; 4 *(p$(u)="-")); 4 (oldrad-2.5 4 (oldrad+2.5 4 " If you choose 4 4 3 v$="VEGE": 3 ts=sc+(no-1 3 szerkeszto 3 m(r,14)+m(r,13)-m(r,12) 3 b$=b$+" ": 3 a$=a$+" " 3 Nku&erenko serge 3 FFFFFFFFFFFFFFFFFF 3 A(N,M));A(N,M): 3 5LN1 - 4 3 1r1+m(k,15) 3 1111m(r,k) 3 ------------------------------- 3 ******************* 3 555TM2 - 5 3 555LN2 - 1 3 555LP5 - 2 3 555IE10- 1 555AP5 - 2 3 KS156-1 555KP11- 6 3 KD521-18 555TM8 - 2 3 KD503-3 555LE1 - 3 3 D9 - 2 555LI3 - 1 3 14 3 555KP2 - 2 3 555IR16- 3 3 555TM9 - 2 3 555LP9 - 1 3 555LP8 - 1 3 555LP11- 1 3 555LL1 - 5 3 555LI1 - 3 3 555LA3 - 3 3 555IR23- 5 3 555IE7 - 2 3 555ID4 - 2 3 555AG3 - 1 3 155LA12- 1 561LN2 - 1 565RY5B-16 1818VG93-1 573RF2 - 1 27512 - 1 3 555LA2 - 1 3 3 3 3 2 z$)+z$+p$(2 2 y$="000000000000" 2 x~rzzrrrrrrrrrrrrrrrrrrrrrrrrrrxx~rz 2 sorsz=sorsz+1 2 qc=qc+(fm=3 2 q$="S")+500 2 perewod9~isel9iz9 2 p$>.999999 2 p$=" ********" 2 p$=" *******": 2 p$<-(.09999 2 p$-e)+"."+p$( 2 need an lvalue 2 n,m(n,cl): 2 m(r,c)=m(r,c)+ 2 load"":run 2 iSTRING TOO LARGE 2 h(n);".";: 2 g$="Step": 2 g$="Cursor": 2 form strt rent fuel raw wages draw expen sund hp bank s/tot cap sales +/- c/bal P 2 existing line no:,the next valid line no: is used.Cal -culated GOTOs etc are highlit.": 2 eljszama=eljszama+1 2 ed from ";f$(cl,7 2 e$(eljszama,8 2 b$="New ": 2 b$="Erase:": 2 b$="Copy/Q": 2 at any position on the screen: ie, to find the CODE of the character printed 2 __________"; 2 ^#V#N#F#~<#( 2 \##N#F#"]\" 2 [}\r#s#N#F# 2 ZX SPECTRUM MACHINE CODE TOOLKIT 2 X"oq!sq"qq 2 VARIABLES END : 2 This is Line #";Z 2 The Recording was fine! 2 T]++++DM"n 2 TO SEE HOW THIS WAS DONE, EXIT & EXAMINE LINES 9278 TO 9286 2 Szritpamqt 2 Start address: 2 Sstilx programm 2 Skosmos(SOUND 2 Skosmos 1989 SOUND 2 Skosmos 198 2 Skirpi&i 198 2 Skarta 198 2 Simulqtor 198 2 Simulqtor SOUND! 198 2 Simulqtor SOUND 2 Sdiwersant 1988 SOUND! 128k-48 2 Sdiwersant 128 2 Sdata master fai 2 Sboks 128 2 Sbegalka SOUND 2 SUPERSOFT SYSTEMS 2 START TAPE 2 START ADDRESS : 2 SOFTEK 'FP' 2 SAVE'";C$( 2 S$ahmaty 128 2 S U P E R C O D E 2 Routine Starts at ";A 2 Routine Length is ";B;" bytes 2 Routine Ends at ";A+B-1 2 ROUTINE NO: 2 ROUTINE ";C$'" IS NOW CALLED 2 RANDOMIZE USR63950 2 RANDOMIZE USR 3190 2 RANDOMIZE USR ";A 2 R"E\*S\###" 2 Press ENTER to Expand the Whole Program 2 PRINT;: RANDOMISE USR 60222 2 POKE NUMBERS 2 Nwitq(torty 2 Ntorres aleks 2 No. STATEMENTS : 2 No. OF EXTRA BYTES::}\_:~\W: 2 No. LINES : 2 No. Bytes: 2 Nnomer kasset 2 Nbasaman aleks 2 NO FORMULA SET AT PRESENT 2 Menu Okno Pap 2 Menu Kresli@ 2 M;"- ";B$(M);": ";A$(N,Y 2 Length of Program Only:! 2 LINE NO:NOW RENUMBER PROGRAM 2 L);"'CODE ";A;",";B 2 Inazwanie programm 2 IZX81-PROG 2 IVIDEO POO 2 IUNDER W.* 2 ITALISMAN (TL 2 ISYBER ZON 2 ISTRIP-DIC 2 ISTARGLIDE 2 ISPYH.(ALD 2 ISPRITE2B(CODE 2 ISPRITE2A(CODE 2 ISPRITE1B(CODE 2 ISPRITE1A(CODE 2 ISPITFIRE4 2 ISIL-DISC(128 2 IS LOADING 2 IROM-128+4 2 IPIJAMARAM 2 IPANAMADJO 2 INIGHTSHAD 2 INIGHTGUNE 2 INIGHTFLIT 2 INDEX - PAGE ";(Z-1 2 IMONTY FRE 2 IMONTY ON THE RU 2 IMONITOR 1 2 IMEMORY TS 2 IMEGA BASIC V.1.1 2 IMATCHPOIN 2 IMASTER M 2 ILUNA CRAB 2 ILAZY JONE 2 ILASER BASIC VI 2 IKNIGHTLOR 2 IJAIL BREA 2 IICE TEMPL 2 IGREENBERE 2 IGENS 3M 2 2 IF.PATROL 2 IDRAGONTOR 2 IDICTIONAR 2 IDEATHWISH 2 ICOMPOSER (SPR.DEMO 2 ICOLOR-TES 2 ICAULDRON 2 ICAESAR CA 2 IBRAINSTOR 2 IBETA BASIC V.1.8 2 IBASKETBOL 2 IBACKGAMMO 2 IART STUDI 2 IARKANOID 2 IANT ATTAC 2 IANALIZATO 2 GGGGGGGGGGGGGGGGGGGG 2 Freddy A Vachha & Vic B Rumsey 2 First Byte: 2 File:s 2 Farbbalken 2 FROM LINE NO:TO LINE NO:AFTER LINE NO:NOW RENUMBER PROGRAM 2 FFFFFFFFFFFF 2 ERROR CODE: ";N$: 2 ENLARGE REM 2 END ADDRESS : 2 EEEEEEEEEE 2 Ddlinna programm 2 Calculating column 2 CALC-A-COLUMN 2 C/D/E/I/N/P/Q/R/S/X 2 BLOCK COPY 2 Auto-start Line No: 2 Array Name: 2 ANY OTHER KEY TO START 2 ANY OTHER KEY TO RESTART 2 ANY OTHER KEY TO GO ON 2 ANY OTHER KEY 2 @This function allows you to 2 ???????? ? 2 ? (y/n)",a$: 2 ;C$;" CODE ";A;",";B: 2 ;"top left hand corner of the box" 2 ;"maximum"; 2 ;"__________ 2 ;"You can scroll attributes too by using this routine & then No: 37 - 40, after defining an appropriate box & setting the Attr Value to 63." 2 ;"Waehlen Sie :" 2 ;"WRAP-AROUND POKE ";A+16 2 ;"WRAP-AROUND POKE "; 2 ;"WRAP AROUND POKE ";A+13 2 ;"V1.1:48K RAM" 2 ;"To say the 2 byte equivalent of X is L(Less)/M(More) sig: bytes means that 256 * M + L = X . This routine permits instant conversion of a number from 0 - 65535 to its 2-byte equivalent. To convert X into its 2-byte equivalent, enter RANDOMISE X. 2 ;"To save this routine, use"; 2 ;"To renumber lines starting with S using an interval I, first POKE 59580,I: POKE 59582,S-256* INT(S/256):POKE59583,INT(S/256) All GOTOs,GOSUBs,LISTs,LLISTs, RESTOREs,SAVE...LINEs & #Ns are renumbered(except for decimal/ calculated arguments & REMs).If the arg 2 ;"To help with PRINTing/PLOTting, this routine prints a BRIGHT ON /OFF checkerboard on the screen" 2 ;"To delete all lines from a to b POKE 23728, a - 256*INT(a/256) POKE 23729, INT(a/256) RANDOMISE b": 2 ;"To call this routine, use"; 2 ;"This routine will switch all flashing squares to steady & vice versa. This is hence very different from routines 32/33." 2 ;"This routine will switch all bright squares to normal & vice versa. This is hence very different from routines 34/35." 2 ;"This routine waits till a key (whose CODE will be put in L)is pressed.": 2 ;"This routine undoes the effect of #98, to allow lines of a CONFUSEd program to be EDITed/ altered.": 2 ;"This routine swops all chara- cters of a given CODE with all characters of a 2nd given CODE. POKE 63903, Old CODE POKE 63905, New CODE" 2 ;"This routine simulates a power- off: ie, it not only does NEW but also CLEARs RAMTOP to its original value, clears the entire memory & resets UDGs & System VARs.": 2 ;"This routine shortens & speeds up your program by deleting all REM statements in it. Also see #41,#82,#90 & #100.": 2 ;"This routine replays what #77 recorded. It is probably best to use your cassette-recorder (MIC socket) to amplify the sound.": 2 ;"This routine replaces numbers in the program by VAL String, which saves space but reduces speed. 0 is replaced by NOT PI. Also see #41,#64,#82,#90": 2 ;"This routine prints the address of the first character in the line the cursor points to.": 2 ;"This routine prints out both the no: of lines & statements in the program. If you try this out, use GOTO 9001 to restart." 2 ;"This routine prints out a full analysis of memory contents, starting at the address whose less & more significant bytes (see #61) have been POKEd into 62866 & 62867 respectively. The 4 columns are address, contents in decimal & hex & CHR$ (where printable).": 2 ;"This routine places a random # pair in the System Variable SEED ( PEEK 23670 & 23671 )." ; 2 ;"This routine lists all (1) Numeric variables (2) String variables (3) Numeric Arrays (4) String Arrays (5) FOR..NEXT control variables" 2 ;"This routine inserts a given number into a block of memory. POKE 63796, No: of bytes POKE 63798 (less sig) & 63799 (more sig), Start Address POKE 63801, No: to be inserted" 2 ;"This routine expands programs so that there is exactly one statement per line (except in IF..THEN lines).In reply to the prompt, enter the no: of the line you want expanded, or just ENTER if you want the entire program expanded. You must use #60 after calling this routine.": 2 ;"This routine enables you to determine the 2 ;"This routine deletes hidden colour items, thus saving space Also see #64,#82 & #100": 2 ;"This routine decodes tapeheader information & prints out a full analysis (name, address, type, length & auto-start details.": 2 ;"This routine converts hex no:s to their decimal equivalents. It clears the screen & prompts 'H:' - now ENTER the hex no:. Only the last 4 hex digits will be converted. The routine auto- repeats. Enter 'Q' to quit to BASIC. When called from #92(Hex Loader) only the last 2 digits are considered.": 2 ;"This routine converts decimal no:s from 0 to 65535 to hex. It clears the screen & prompts 'D:' - now ENTER the dec no:. Error message 6 results if the no: was out of range. The rou- tine autorepeats. Enter 'Q' to quit to BASIC.": 2 ;"This routine contracts programs into the minimum no: of lines, by combining lines wherever it is logically possible. Speed is also increased. See also #41, #64, #90 & #100": 2 ;"This routine allows hex input into RAM.POKE the less/more sig (see #61) bytes of the first address to be changed into the system-var DEFADD (23563/4). POKE 65360/61 with the start address of routine #63(Hex-Dec) which must also be in memory.": 2 ;"This routine allows a block of lines to be relocated within a BASIC program.In order to shift lines 4200 till 6745 so they appear after2200 in the listing respond 4200,6745 & 2200 to the auto-prompts.The new lines will all have number 0.Now call #60 to renumber & #57 to delete the old lines. Fully errorproofed.": 2 ;"The free space F from the last Variable to RAMTOP is printed. By the way, you can use POKE 23637,203:POKE 23638,92:SAVE 'Name'CODE 23552,RAMTOP-23550-F to save your program disguised as code - it will autostart at the first line."; 2 ;"The Toolkit contains 2 ;"THIS IS AN EXAMPLE OF THE NEW CHARACTER SET.POKE 23606/7 WITH THE LESS/MORE SIGNIFICANT BYTES OF THE START ADDRESS LESS 256 - CURRENTLY 0 & 223. TO RETURN TO THE NORMAL SET,POKE 23607,60.": 2 ;"TERMINATED": 2 ;"START TAPE": 2 ;"SCROLL-OFF POKE ";A+16 2 ;"SCROLL-OFF POKE "; 2 ;"SCROLL-OFF POKE ";A+13 2 ;"Routines 94 to 97 change the case (upper/lower)of strings or of the entire listing ( except strings),as specified.Note that an effective way of switching case from within programs is to POKE 23658,0 (LO) or 8(HI).": 2 ;"Routine in ROM": 2 ;"RAMTOP? ": 2 ;"RAMPTOP at 40000?(Y or N)": 2 ;"PRINT AT co-ordinates of the"; 2 ;"POKE 64884, Overall Paper Col" 2 ;"POKE 64859, Overall Ink Colour" 2 ;"POKE 64829, Character Code POKE 64831, Box height POKE 64834, Box Width POKE 64832 & POKE 64835 with the PRINT AT co-ordinates for the top-left hand corner of the box." 2 ;"POKE 64682, Duration POKE 64693, Frequency 1 POKE 64702, Frequency 2" 2 ;"POKE 64648, Frequency POKE 64649, Span POKE 64651, Duration POKE 64670, 28(UP) or 29(DOWN)" 2 ;"POKE 63011, Pitch Decrement POKE 63012, Number of notes POKE 63014 & 63015, Pitch (less/more sig) POKE 63017 & 63018, Duration in ms (less/more sig)" 2 ;"POKE 63001 & 63002 with the Pitch value (less/more sig) POKE 63004 & 63005 with the Duration in ms (less/more sig)" 2 ;"POKE 60006, Duration (1-127) POKE 60020, Colours (0-7) POKE 60029, Line Space (1-255) 2 ;"POKE ";A+7 2 ;"POKE ";A+6 2 ;"POKE ";A+4 2 ;"POKE ";A+1 2 ;"No GOSUBs or GOTOs are changed- use #60 if you need that done. If L is the first Line to be renumbered, & I the Interval POKE 64711, I - 256*INT(I/256) POKE 64712, INT(I/256) POKE 64714, L - 256*INT(L/256) POKE 64715, INT(L/256)": 2 ;"Move the cursor to the required line & then call this routine. You will be in EDIT mode, but with the cursor at the END of the line.": 2 ;"Make the following POKEs:- INK (63732) PAPER (63738) FLASH (63744) BRIGHT(63750) INVERSE(63756) OVER (63762) AT (63768,63771)CHR$ (63774)" 2 ;"Loading address"'"(23296 - 65480, default 23296)?"'a$ 2 ;"Line beginning position"' 2 ;"Less Sig More Sig": 2 ;"In order to scroll a table of data > 22 lines long without stopping, use the command POKE 23692,x where x is the no: of lines to be scrolled. To scroll 'forever' use POKE 23692,255 within the loop that generates the lines.": 2 ;"In order to print lists or text using all the 24 lines on the screen, include POKE 23659,0 before each PRINT instruction. At the end, POKE 23659,2. Use PAUSE 0 to prevent the Scroll command corrupting the screen. PRINT #0 & PRINT #1 commands are also usable.": 2 ;"In order to make the first line of your program virtually non- deletable (by making it #0)POKE 23755,0: POKE 23756,0. To do this to other lines, first find their address X using routine 88, then POKE X-4,0: POKE X-3,0 The program will work provided you do not GOTO/GOSUB/RESTORE such lines.": 2 ;"INVERSE SCRL POKE ";A+13 2 ;"INTRODUCTION": 2 ;"Having connected the EAR socket of the cassette-recorder to the Specrum, start PLAYing the tape ( Voice is best. Let Vol=max ) Enter CLEAR 32767:RANDOMISE USR 65290. All memory from 32768 to 65K is used. To replay, call routine 78.": 2 ;"Follow the prompts to expand a REM statement (to accommodate code) anywhere in the program, by up to 9999 bytes": 2 ;"FULL COMPILER" 2 ;"FORMULA rejected as TOO LONG!": 2 ;"ENTER FUNCTION (9=query) ... ";q 2 ;"END OF PROGRAM": 2 ;"Driver LPRINT & LLIST" 2 ;"Draw multipointed-stars & rings by first plotting a point near the middle of the screen & then using DRAW X,Y,N where X & Y have magnitudes from 10 to 60 & N lies between 8000 & 9999. You may need to experiment.": 2 ;"Draw any closed figure on the screen, then PLOT a point lying INSIDE it. POKE 59293 with the Attribute value to be filled,& then call this routine 2 ;"Corrupts the listing without affecting program execution: attempting to EDIT/alter lines could be fatal (thus useful for program protection, as are #61/ #80).": 2 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60899'. Now if an error of the type D:BREAK,H:STOP in INPUT or L:BREAK into program occurs the program will not stop but will jump to the line number whose 2 byte equivalent is POKEd into 60952(lo) & 60953(hi).This line is initially 9495.": 2 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60826'. Now if an error occurs, (other than types 0:OK,8:END or 9:STOP) the program will not stop but will jump to the line number whose 2-byte equivalent is POKEd into 60878(lo) & 60879 (hi)...initially 9495. For the error code, PEEK 23681.": 2 ;"By combining this routine with No:s 37-40, joint scrolling of attributes can be done. Define a suitable box, use an Attr Val of 63 & call the Attr Scroll routine(s) once for every 8 calls of this routine." 2 ;"By POKEing 23606 & 23607 with different numbers, a corrupted character set is obtained. To normalise, POKE 23606,0 : POKE 23607,60. Protect your program with this, temporarily normal- ising before each PRINTing.": 2 ;"A Laser Zap routine can also be called,using 2 ;"1)Make line#1 a REM statement: then POKE 23755,100. You can RUN the program but not LIST it until you POKE 23755,0. 2)POKE 23636,150. To return to normal, POKE 23636,92. 3)Use CONFUSE (#98) ,call #65 & #66 to disable BREAKs, use CHR$ SCRAMBLE (#59) to scramble the listing & #68 to create non- deletable lines with 2 ;"----> "; 2 ;"-----------------------------------------" 2 ;", X - 256*INT(X/256)"'" POKE ";A+2 2 ;", New Attribute Val"; 2 ;", INT(X/256)": 2 ;", Box width"; 2 ;", Box height" 2 ;"(1 - 255, default 11)?"'b$ 2 ;" bytes for any formula";t(3 2 ;" Waehlen Sie :" 2 ;" Erase "; 2 ;" Cop/* "; 2 ;" & POKE ";A+3 2 ;" WARNING This option CLEARS memory of all data. Press any letter key to activate, or BREAK": 2 ;" Formula recorded ": 2 ;" " 2 7,13;: LET Z= 2 7,13, you must enter PRINT 2 64 char print 2 60039 Now Z is the required code.": 2 57344----(8118)----65461 2 23670 & 23671 now hold the less significant & more signi- ficant byte values respectively": 2 23350-Hardcopy entry 2 1983 Martin Lewis" 2 0spisok programm na ZX-SPECTRU 2 000000000000Q 2 -qc)+(fm=6 2 ,"VARIABLES SEARCH/LIST",1 2 ,"UNI-NOTE SOUND-GEN",5 2 ,"UNI-BEEP SIMULATOR",15 2 ,"UNCONFUSE LISTING",1 2 ,"U-CASE STRINGS",1 2 ,"U-CASE PROGRAM",1 2 ,"TAPE HEADER READER",1 2 ,"SUPER-RENUMBER",1 2 ,"STAR/TORUS DRAW",1 2 ,"SHUTTER-SCROLL RIGHT",10 2 ,"SHUTTER-SCROLL LEFT",10 2 ,"SCREEN-PRINT",1 2 ,"SCREEN STORE",1 2 ,"SCREEN SEARCH",1 2 ,"SCREEN OVERPRINT",1 2 ,"SCREEN INVERT",1 2 ,"SCREEN GRID",1 2 ,"SCREEN FILL",1 2 ,"SCREEN EXCHANGE",1 2 ,"SCIFI CHARACTER SET",1 2 ,"RIPPLE-SCROLL RIGHT",255 2 ,"RIPPLE-SCROLL LEFT",255 2 ,"REPLAY SOUND",0 2 ,"REMKILL CONDENSER",1 2 ,"RECORD SOUND",0 2 ,"RANDOM NUMBER GENERATOR",20 2 ,"PROTECT PROGRAM",1 2 ,"PAPER CHANGE",1 2 ,"PAINT-FILL",1 2 ,"ON ERROR GOTO",1 2 ,"ON BREAK GOTO",1 2 ,"OBLIQUE SCROLL-OFF",1625 2 ,"NON-DELETABLE LINES",1 2 ,"MULTI-BEEP SIMULATOR",8 2 ,"MONOCHROME PROGRAM",1 2 ,"MEMORY AVAILABLE",1 2 ,"LORES TOP 2/3 SCR-RGHT",255 2 ,"LORES TOP 2/3 SCR-LEFT",255 2 ,"LORES TOP 1/3 SCR-RGHT",255 2 ,"LORES TOP 1/3 SCR-LEFT",255 2 ,"LORES SCROLL-UP",24 2 ,"LORES SCROLL-LEFT",33 2 ,"LORES SCROLL RIGHT",33 2 ,"LORES R-DIAG SCROLL",22 2 ,"LORES MID 1/3 SCR-RGHT",255 2 ,"LORES MID 1/3 SCR-LEFT",255 2 ,"LORES LOW 2/3 SCR-RGHT",255 2 ,"LORES LOW 2/3 SCR-LEFT",255 2 ,"LORES LOW 1/3 SCR-RGHT",255 2 ,"LORES LOW 1/3 SCR-LEFT",255 2 ,"LORES L-DIAG SCROLL",22 2 ,"LINE RENUMBER",1 2 ,"LINE ADDRESS",1 2 ,"L-CASE STRINGS",1 2 ,"L-CASE PROGRAM",1 2 ,"INK CHANGE",1 2 ,"How many (enter 0 to re-specify)";t(4 2 ,"HIRES SW-DIAG SCROLL",190 2 ,"HIRES SE-DIAG SCROLL",190 2 ,"HIRES SCROLL-UP",175 2 ,"HIRES SCROLL-RIGHT",255 2 ,"HIRES SCROLL-LEFT",255 2 ,"HIRES SCROLL-DOWN",200 2 ,"HIRES NW-DIAG SCROLL",176 2 ,"HIRES NE-DIAG SCROLL",176 2 ,"HEX->DEC CONVERTER",1 2 ,"HEX LOADER",1 2 ,"FREE-SCROLLER",1 2 ,"FLASH SWITCH",1 2 ,"FLASH ON",1 2 ,"FLASH OFF",1 2 ,"EXPAND REM",1 2 ,"EXPAND PROGRAM",1 2 ,"DUAL-NOTE SOUND-GEN",10 2 ,"DEC->HEX CONVERTER",1 2 ,"CONTRACT PROGRAM",1 2 ,"CONFUSE LISTING",1 2 ,"COMPRESS NUMBERS",1 2 ,"CLEAR ALL ",1 2 ,"CHR$ SCRAMBLE",1 2 ,"BRIGHT SWITCH",1 2 ,"BRIGHT ON",1 2 ,"BRIGHT OFF",1 2 ,"BORDER EFFECTS",10 2 ,"BLOCK MEMORY INSERT",1 2 ,"BLOCK LINE DELETE",1 2 ,"BLOCK LINE COPY",1 2 ,"AWAIT KEYPRESS",1 2 ,"ATTRIBUTE SCR-UP",40 2 ,"ATTRIBUTE SCR-RIGHT",200 2 ,"ATTRIBUTE SCR-LEFT",40 2 ,"ATTRIBUTE SCR-DOWN",40 2 ,"ATTRIBUTE FILL",1 2 ,"APPEND STATEMENT",1 2 ,"ANALYSE PROGRAM",1 2 ,"ANALYSE MEMORY",1 2 ,"ALL-RIGHT SCROLL",32 2 ,"ALL-LEFT SCROLL",32 2 ,"24-LINE PRINTING",1 2 ,"2 BYTE CONVERTER",1 2 , use a fresh cassette - the routine is saved under the name "; 2 , use GOTO 9001(not RUN)to restart the program." 2 +p+q+r+s"\ 2 +^+V+~+N++++" 2 +A;", 26"; 2 +-*]\"[\*Q\ 2 ++F+N+++"]\*S\~ 2 ++F+N+++"]\ 2 *]\###q#p##"]\ 2 *S\##"]\^#V 2 *SUPERCODE 2 *B\"E\:D\=2G\ 2 **e\++++++F+N 2 ***************** 2 ************* 2 )+"m("+z$+","+x$+")"+p$(n+1 2 )*(f$(cl,3 2 )),"STEP ";f$(cl,7 2 ))+z$+p$(4 2 ))+z$+p$(3 2 (m(o,x)*d+.5 2 ("first row, ";fr;" last is...");lr 2 '(exit).You willthen have the option of SAVEing the routine on tape,QUITting to BASIC or restarting." 2 '"new rows ";q;" to "; 2 '" (1)At 10% Speed, using PAUSE"'" (2)At Full Speed" 2 '" To access the next routine in the Index, press ' 2 '" To access a routine whose no: you know, press ' 2 '" If you would like to have the details of this routine again, press ' 2 '" If you wish to return to the Index, press ' 2 ' (repeat)" 2 ' (number)": 2 ' (index)" 2 ' (continue)" 2 #T]##N#F#~ 2 ###~#fo###~#fo#~#fo 2 ###~#fo###~#fo 2 #"a\"c\"e\! 2 #"a\"c\"e\ 2 "reference column number is?";cl 2 "programs.This BASIC program letsyou list,test,customise,relocateSAVE & VERIFY routines easily - but the routines will work just as well if the program is absent" 2 "now enter new formula (:=mat refK=loop ref, R and C =current rowand column references.";p$: 2 "now enter last row ";q: 2 "how many columns ?";qc: 2 "first row? ";fr: 2 "b:MDDM2 ","a:MDDM2 " 2 "a:%%%%%%%%","b:%%%%%%%%" 2 "Which column is to be calculated?";c: 2 "This routine has now been saved.Replay it NOW to VERIFY. If the recording is bad, you will be automatically returned to the SAVE option via the Error-trap routine." 2 "The save MUST then be verified." 2 "The code is from 57344 to 65461:it overwrites the first 12 UDGs.RAMTOP has been cleared to 57340" 2 "The Index follows- input the no:of a routine for its description(incl all addresses & POKEs)& anoptional example.Get to know theMenu options ";: 2 "That was the Laser Zap. Now for the Uni-Beep.": 2 "Specify Col/Item number for 2 "S\"K\"U\#"Y\ 2 "START TAPE AND PRESS ANY LETTER KEY": 2 "SINKLOGO" 2 "POKEs necessary for tailormakingthe program to your specific needs ) press ' 2 "Maximum rows advisable is "; 2 "MATCALC48" 2 "Last K value ... ";z$: 2 "LOADing(l) or Setting-up(S)?";q$: 2 "How many decimal places ? ";e: 2 "How many columns/items ?";t(1 2 "Formula set for row "; 2 "Enter the "; 2 "Enter row ";(n;" data ");m(n,cl): 2 "Enter label to column ";(n);l$(n): 2 "Enter first row for new formula to operate on .... ";q: 2 "Enter first K value in loop ... ";z$: 2 "Driver area from ";a;" to ";a+52 2 "Do you want labels (y/l) ?";q$: 2 "Do you want 32 characters per line (reply=3) or 64(reply=6) ? ";fm: 2 "Are you sure? (y/n)" 2 ";(f$);" ? (y/n)", 2 "4)Imbed hidden colour CHR$ to set INK=PAPER within non-delet- able lines:the listing vanishes5)Autostart by using SAVE Name$ LINE X. Let line X be 'LET ERR= 256*PEEK 23614 +PEEK 23613:POKE ERR,0:POKE ERR+1,0'. Any BREAK/ error will now cause a crash.": 2 "0 = STOP RUN"''"1 = DISPLAY"''"2 = 2 "''"6 = CALCULATE A COLUMN"''"7 = CALCULATE MATRIX"''"8 = START A NEW MATRIX"''': 2 "''"4 = VIEW/CHANGE A FORMULA"''"5 = ENTER 2 "#";N;": "; 2 " Press any other key to restart." 2 " LP+LL (y) or LP (default) ?";e$ 2 " The routines run hundreds of times faster than BASIC,& can becustomised easily. Do enjoy yoursuperb Z80 MachineCode Library!" 2 " Keep a written record of the name, address & length of this routine, as well as of all the relevant POKEs. For details on relocation, refer to the manual." 2 " If you have noted important details ( address, length, any" 2 value ... ";z$: 2 swops the current screen & the STOREd one A screen has 6912 bytes (24*32* 8, + 24*32 Attributes) & should be stored above RAMTOP (CLEARed downwards to make room).To have a screen from X-6911 to X use POKE ";A+1 2 saves a screen, 2 recalls it. 2 nebo stejn 2 messages" 2 machinecode routines which you can call(using RANDOMIZE/PRINT USR) bothdirectly & from within your own" 2 V.RUMSEY 2 SECOND PASS 2 ROUTINE # 65 HAS PREVENTED YOU FROM BREAKING INTO THIS PROGRAM 2 PRESS ANY KEY TO TURN THE PAGE 2 POKE 63951,Duration. To save it use SAVE 'ZAP'CODE 63950,26." 2 POKE 23607, 223 2 OVERPRINT 2 NO ERRORS 2 FIRST PASS 2 F.VACHHA 2 Datalog 2 1987 Petr Adamek 2 1983 Martin Lewis 2 - PRESS ANY KEY TO GO ON 2 LOADED 2 (c=Current) ";x$;" Row number?"'"(r=Current) ";z$ 2 FLOATING POINT COMPILER 2 6700.00 2 Y 2 2 2 2 2 2 2 1 ~~````~~~~ 1 ~~ Options 1 ~astx9fajla9 1 ~SPLAY DIRECTORY"'" h - SHOW ITS STRUCTURE"'" a - ADD TAPE POSITIONS"'" i - INCL. NEW HEADERS"'" t - SAVE DIRECTORY+PRGM"''" s - CLEAR & SAVE PRGM"'" n - MAKE NEW DIRECTORY" 1 |xtplhd_[WSOJFB=950,(# 1 {IHBBBBBBBBBBBBBBB 1 {H !{J '{K -{L 3{M 9{N ?{O E{P K{Q Q{R W{S ]{T c{U i{V o{W u{X {{Y 1 {>IN $|?DUP *|ABORT @|COUNT _|DEPTH t|EXECUT 1 {)HBBDFABDFABCBBBB 1 zy=zy+y(s): 1 zx=zx+x(s): 1 znamu : Vyu 1 zec Text 1 zapisatx9sektor 1 zapisatx9dorovku 1 zPr = Load normal char. < > 1 z? #z' *zINKEY 9zKEY MzRND tzwrdsch 1 yy=yx-zy*w(n): 1 yx=y-zy*y(v0): 1 yx=y-zy*(y(v0)+y(u8)): 1 yx=(a2*n+s*a3)*n+a1: 1 yx=(a1*n-s*a3)*n+a2 1 yr=(yy-y)* 1 y=yx-y(u9) 1 y=m*sy+zy: 1 y=k+y-y(u9): 1 y+yp*tl>170 1 y+b<(yp-py+b)*d 1 y$(k,j-23310 1 y$(k,i)="_" 1 y$(k,i)=" " 1 xyz{|}>FG@ABCDE 1 xy=x+zx*x(v0): 1 xy=x+zx*(x(v0)+x(u8)): 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 xxxxxxxx1w 1 xx=xy+zx*v(n): 1 xx=xx+k*i: 1 xx=xx+(n=u8): 1 xr=(xx-x)* 1 xCurrent mask: 1 xBRIGHT(xPAPER ;xINK QxBORDERbxHIRES qxPLOT 1 x@ yC@ ,y! 8yC! DyP@ NyP! [yFILL fyERASE xyDELETE 1 x=xy+x(u9): 1 x=x+xp*tl: 1 x=j+x+x(u9): 1 x= y= D 1 x<(ADR+PR) 1 x+xp*tl>250 1 x+(xp-px+b)*c>w3 1 x(t)+a7-b: 1 x$=g$+",y": 1 x$=g$+",x": 1 x$=g$+",r": 1 x$=g$+",l": 1 x$="no. of pixels": 1 x$="no. of chars": 1 x$="new attr": 1 x$="change": 1 x$="Vert. Radius": 1 x$="Turn Angle": 1 x$="Start Angle": 1 x$="Space": 1 x$="Rotation": 1 x$="Radius": 1 x$="Pic No.": 1 x$="Pic Mode (p,a,c or d)": 1 x$="No. to save": 1 x$="Mark": 1 x$="Horiz. Radius": 1 x$="Coords.to": 1 x$="Coords. from": 1 x$="Brush mode (p,u or i)": 1 x$="Arc Angle": 1 x"x-xExVxexyx 1 x ** Soubor nepojmenov 1 x 1 ww=yx*a1-xy*a3: 1 ww=-i*r-j: 1 ww-a1/u8+j: 1 wpqrstu62" 1 while,r-while-1 1 wLOOP "w+LOOP 7wLEAVE WwEXIT ^wEXITLP`wWAIT ewMAX vwMIN 1 w1+" saved": 1 w1+" is the wrong type": 1 w(rsp)=w(rsp)-1 1 w(rsp)=p(1 1 vv=xy*a2-yx*a3: 1 vu @Vyber jm 1 vszama=vszama+1 1 vonalhuzo=20 1 vncim=vncim+7 1 vkeep stre 1 vegrehajto=700 1 vegrehajto 1 valtozok kezelese 1 valtozok es parameterek 1 valtozo=800 1 v> -vDROP AvDUP IvOVER SvPICK _vSWAP qvROT |vROLL 1 v9,u6;k$(en): 1 v8,v1;bx;","; 1 v4,u5;k$(ed); 1 v4,n0;q$(b+ 1 v3,w0;q$(u9+k); 1 v3,v8;"r,l =";r;",";l; 1 v3,s;"I P B F "; 1 v3,n0;k$(s- 1 v2,v0;"COLOUR"; 1 v2,u6;x;",";y; 1 v1,v3;"0. Main Menu": 1 v1+s*i,v3;i;". Load ";l$(i): 1 v0,v5;"SAVE"; 1 v0,v5;"LOAD": 1 v0,m4;j$(p*p1+b); 1 v(vm)=prvege+1 1 v(vm)=e(a,1 1 v(n),w(n): 1 v$="NEMVEGE" 1 use a predeclared structure for parameters 1 use RAM Until 1 undefined variable(s) 1 undefined variable 1 undefined label: 1 unauthorized disassembly 1 type should be function 1 too much initialisation data 1 too many characters-max is 8 1 this variable was not in parameter list 1 theta=theta-360 1 theta=theta+360 1 theta=theta+10 1 there must be a name 1 tek Str.zp 1 tFIELD FuCR Qu+ \u- gu* tu/ 1 tEMIT pt. 1 t:^x<W!]xy 1 t,v3;"1. ";a$; 1 t,u6;ss;",";tt; 1 t$="PNTCGXS" 1 t$(x);","; 1 t < Menu > Str.vp 1 t Oprav M 1 s~itatx9dorovku 1 szerkeszto=1000 1 szamkereso 1 sy=(sy-zy)/85 1 sx=(sx-zx)/170 1 structure cannot contain itself 1 stro~n=9bukwy 1 storage class not valid in this context 1 sto : Po 1 start=pl*( 1 sprite designer program 1 sorsz,tab;b$: 1 sorhossz=sorhossz-a: 1 snum=snum+1 1 smo Pr 1 slo Menu 1 sistemnoj9dorovke 1 sektorow>> 1 sec Files: 1 sdelphin Cl 1 screen window 1 sboot BU(U() 1 s,m4;j$(p*p1+b); 1 s(x);"]";: 1 s(x);" TO "; 1 s$=" ": 1 rtape5.0 C 1 rrrrrrrrrrrrrrrrrrrrrrrrrrx~zz~~rrrrrrrrrrrrrrrrrrrrrrrrrrxzz~~rrrrrrrrrrrrrrrrrrrrrrrrrrrz~~~rrrrrrrrrrrrrrrrrrrrrrrrrrrr~~qqrrrrrrrrrrrrrrrrrrrrrrrrrrrr~rqqrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 1 rrrrrrrrrrrrrrrrrrrrrrrrrrx~zz~~rrrrrrrrrrrrrrrrrrrrrrrrrrxzz~~rrrrrrrrrrrrrrrrrrrrrrrrrrrz~~~rrqqqqqqqqqqqqqqqqqqqqqqqqrr~~qqqqppppppppppppppppppppppqqrr~rqqppppppppppppppppppppppppqqrrrrqqqqqqqqqqqqqqqqqqqqqqqqqqqqrrrrqqqqqqqqqqqqqqqqqqqqqqqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqq88888888888888qqqqqqqrrrrqqqqqqqqqqqqqqqqqqqqqqqqqqqqrrrrqqqqqqqqqqqqqqqqqqqqqqqqqqqqrrrrqqqqqqqqqqqqqqqqqqqqqqqqqqqqrrrrqqqqqqqqqqqqqqqqqqqqqqqqqqqqrr 1 recly C@ 1 rec BN 1 rDELPHIN#B 1 r=r-x(v2)* 1 r(rsp)=i+1 1 r : @CHYBN 1 r StavKalkulace 1 r Inkoust Jas Blik@ 1 r Inkoust Jas Blik Text Pln 1 r Inkoust Jas Blik Pln 1 qTCOPY-TRB 1 psi=psi-360 1 psi=psi+360 1 psi=psi+10 1 program=2000 1 printer BY 1 prMC6304BV 1 pog3 Bw 1 pog2 Bm 1 podtwerdite9 1 pis na magnetofon 1 pis na Microdrive/disk 1 phi=phi-360 1 phi=phi+360 1 phi=phi+10 1 perezapisatx 1 pbstack overflow 1 pascal dB@ 1 parvalt=300 1 parancsotnem tarol 1 parancs=1300 1 pEEEEEEEEE:Y 1 pEEEEEEEEE9 1 p,a,c or d 1 p(par)=e(b,c+1 1 p$+sorhossz+1 1 out ( ),a 1 oldrad=rad 1 oDIS 48k B 1 o,m3;y;" " 1 o,a;j$(p*p1+b);" ";x;" "; 1 nzz,ncc,popep,m, 1 nyiltorlo=10 1 nyilrajzolo=45 1 nyilrajzolo 1 nyelvtani hiba 1 nowye_dorovka 1 not in switch 1 not in loop or switch 1 not in loop 1 not a preprocessor command 1 not a defined member of a structure 1 no arrays of functions 1 need a type name 1 need a pointer 1 need a constant expression 1 need a : to follow a ? - check bracketting 1 najti9fajl 1 nStart tape, then press any key 1 nMDDM2 B% 1 n=s*a1+s*a3+m: 1 n0,v8;"step=";aa;",";bb; 1 n0,v3;"2. ";: 1 n+s,w0;w(n): 1 n+s,v4;e$; 1 n+s,m4;v(n); 1 n+b,v5;x(n); 1 n+b,v5;x(n): 1 n+b,v5;d$; 1 n+b,u5;y(n): 1 n+b,m3;e$; 1 n$=n$+".asm" 1 n$="PROGRAM": 1 n$="CARACTER ARRAY": 1 multiple use of identifier 1 multiple default statements 1 mode_2:ink 4:list 1 missing 'while' 1 missing ')' in function declaration 1 missing ' ' 1 melegindito=9500 1 melegindito: 1 melegindito 1 macro buffer full 1 m4+"0123": 1 m3,v6;n;","; 1 m3,v6;"colour": 1 m3,v3;"3. ";b$ 1 m3,n0;q$(v0+ 1 m+" characters": 1 m$="BASIC = ": 1 lzxed CH 1 ltvtest1 B 1 legyen levagasa 1 left rightup down whole 1 lZXED B 1 l=x(t)+a7-b: 1 l=x(t)+a7-b 1 l=o(s*z+r+u8+ 1 l3 B8GkAH 1 l,r,u or d 1 l(x);")";: 1 l$(x);")";: 1 kzxed B 1 ky @ ** jm 1 ka Menu P 1 k=d*d/c/c-b: 1 k+xx+yy+xy+c+yx+h+oc+d+i+j+m+l=n: 1 k$="4567": 1 k$="0123": 1 jzxed$ C 1 ito % : Obsazeno : @ 1 ismetles befejezve 1 ism. verem mutato 1 ipoj jen data 1 io+++F+N!Xt 1 incjp jr ld lddldinegnopor orgoutpoppusresretrl rlarlcrldrr rrarrcrrdrstsbcscfsetslasrasrlsubxorhalcpdcpidjnim indiniotdoti 1 in a,( ) 1 illegal parameter type 1 iiiiiiiiiiiiiiyyyyyyyyyyyyyyxxxxxxxxxxxxxxhhhhhhhhhhhhhh< 1 idej novou zpr 1 idej element @ 1 idej Vyhledej a vynech 1 iTRANSFER NEEDS 2 ARGUMENTS 1 iSYNTAX ERROR - MISSING COMMA 1 iSYNTAX ERROR - MISSING ARGUMENT 1 iNOT A OR A VALID COLUMN 1 iNO MORE ROOM FOR FORMULAS 1 iNO FORMULA TO EDIT 1 iMUST TRANSFER ROW TO ROW 1 iMUST TRANSFER COLUMN TO COLUMN 1 iMUST BE A ROW OR COLUMN 1 iINVALID RANGE 1 iINVALID FORMULA 1 iINVALID COMMAND 1 iINVALID CELL ADDRESS 1 iFORMAT MUST BE G,I,$,L OR R 1 i,z;"Finish at page? (ones)": 1 i,z;"Finish at line? (last)": 1 i$=p$(v(vm) 1 i$=i$+" ": 1 i$=g$+" ": 1 i$="Please try and save it again": 1 i$="Please try again": 1 i$="Please rewind the tape to verify": 1 i$="Maximum "+ 1 i$="Invert 1 i$="Do you wish to overwrite ( 1 h~Next page~ Previous page~ Options 1 hmons B 1 hideginditas 1 hhhhhhhhhhho` 1 he wrong file, find another header 1 ha valtozot talalt 1 h$=h$+","+u$(n+b): 1 h$=h$+" ("+ 1 h$=c$+" has not been verified": 1 h$="window/screen 1 h$="print string": 1 h$="filename": 1 h$="Store is being used for "+l$(m): 1 h$="Enter "+h$: 1 h$="Currently": 1 h$="Completed": 1 h$="0123456789ABCDEF": 1 goto needs a label 1 gin at cursor S - reset margins to normal 1 generated code area is full 1 g(" PROGRAMM BY RECLY ' 1992 1 g(" EPSON INITIATION"): 1 g$=g$+l$(n): 1 g$="block size": 1 g$="Swap Colour": 1 g$="Set Print": 1 g$="Set Colour": 1 g$="Set "+g$: 1 g$="Scroll" 1 g$="Scroll Attr": 1 g$="Save " 1 g$="Reverse": 1 g$="Print block": 1 g$="Pic No.": 1 g$="Pic Mode": 1 g$="Merge": 1 g$="Mark/Space": 1 g$="Magcopy": 1 g$="Load ": 1 g$="Last Plot": 1 g$="Ellipse": 1 g$="Delete ": 1 g$="Cover": 1 g$="Coords. "+ 1 g$="Circle": 1 g$="Change Colour": 1 g$="Brush": 1 g$="25314": 1 fusea6 C8 1 fusea5 B7 1 fusea4 B: 1 fusea3 C8 1 form strt rent fuel raw wages draw expen sund hp bank s/tot cap sales +/- c/bal 1 forget words 1 fordito=100 1 fin=start+pl- 1 fg`abcde&*!nohijklm. 1 fenntartott szo 1 fenntartott szavak 1 farbiger Schirm 1 f$-zz)*sz+m 1 f$'"zakres x ?"'"od : ";zx,"do: ";sx,"zakres y ?"'"od :";zy,"do:";sy'"zakres z ?"'"od :";zz,"do :";sz'"dziedzina? (dla x i y rzeczywis-tych)"; 1 expecting a primary here 1 exists, overwrite? 1 et : Pr 1 ertekadas=2200 1 epson.dr","d100.dr" 1 ena ** 1 eltette az elj nevet 1 elteszi a vnevet 1 else,r-else-1 1 eljszama=1 1 eljaras=1700 1 elj.cim p$-ban+3 valt. erteke 1 elj. nevek+valt. nevek+valt.szam 1 ejmenuj tuto zpr 1 ed Konec Z 1 echny vybran 1 eExponent expected 1 e(eljszama,1 1 e$="You can read from and write to RAM (this program is in RAM) butthe contents of RAM are lost when the power is switched off.": 1 e$="You can attach other peripherals(e.g. a printer) besides the standard ones in this diagram using the edge connector.": 1 e$="This program will introduce the Spectrum hardware. We will startfrom the inside with the parts that form the microcomputer.": 1 e$="The most complex (yet cheapest) component is the microprocessor or CPU (Central Processing Unit)The CPU in the Spectrum is a Z80": 1 e$="The interface between the CPU and the peripherals is complex but is handled by a single ULA -a custom-designed chip.": 1 e$="The cassette recorder is an input and output device which is not for communication but forstorage of programs and data.": 1 e$="The TV & loudspeaker are output devices which the Spectrum uses to pass information to you. The loudspeaker is playing now.": 1 e$="The Spectrum 'talks' to you via the TV and you talk to or input information to the Spectrum using the keyboard.": 1 e$="The ROM contains fixed programs and data which allows the Spectrum to start working as soon as it is switched on.": 1 e$="The CPU is of little use withoutmemory and the Spectrum has two kinds: ROM (Read Only Memory) and RAM (Random Access Memory).": 1 e$="In order for the computer to do useful work it must communicate with the outside world through peripheral devices.": 1 e$="Do you want to run this program again? Press Y or N for Yes or No.": 1 e$="Because it is vital that you know how to use the keyboard there follows a series of programs to ensure just that.": 1 e$(eljszama,vncim 1 e$(eljszama, 1 e"Ct!Ct"=\> 1 e"$`!Gt"Et! 1 duplicate declaration of structure tag 1 duplicate declaration - type mismatch 1 duplicate declaration - storage class mismatch 1 duplicate declaration 1 ds Cj 1 doc4.3 CH 1 disk[1-4]: 1 direct execution not possible when translating 1 define include diagnostlist direct error translat 1 datalog BT 1 d=yp-py+b: 1 d100.dr Bc 1 d$=p$(vkezd 1 d$=e$(b,vncim 1 d$=d$+" ": 1 d$="and then press any key": 1 d$="The Spectrum Hardware": 1 d$="STOP THE TAPE": 1 d$="START THE TAPE": 1 d$="Press any key to continue": 1 d$="PSION 1 d$="Loading lesson1": 1 d$=" ": 1 d$''" czy dane O.K.?"; 1 current Values 1 correction: 1 cimek=2100 1 character in the line is a semicolon. Blank lines are also allowed to space out a listing. Both comments and blank lines are ignored by the a 1 ch : Voln 1 cc.scrn Cv 1 cc.code Cpb 1 cannot use this operator with float arguments 1 cannot open file 1 can only define identifiers as macros 1 can only call functions 1 c>(w3-x)/t 1 c=xp-px+b: 1 c1=c-c2*256 1 c$=c$+p$(i+1 1 buf=buf+16 1 boot B] 1 behatarolo=200 1 behatarolo 1 bcdehlspixiy 1 bad type combination 1 bad operand type 1 bad function return type 1 bad formal parameter list 1 bad declarator 1 bad declaration 1 bad character constant 1 b1=b-b2*256 1 b,n0;"mode:";j$(p+b); 1 b,a;d$;d$;d$: 1 b$=p$(vkezd 1 b$=e$(b,vncim 1 b$=b$+"n)" 1 b$=b$+" " 1 b$=a$(vkezd 1 azonosito=500 1 azonosito: 1 adcaddandbitcalccfcp cpldaadecdefex exxin 1 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa! 1 aaaaaaaaaaaaaaaaaaaaaaaaaaa 1 a3=vv*ww*k: 1 a2=ww*ww*k+b: 1 a1=vv*vv*k+b: 1 a1=a-a2*256 1 a,v6;j$(p+b); 1 a,a;" ";d$;d$; 1 a(j)=a(j)-64 1 a$=s$(s)+t$(n): 1 a$=g$+" too thin": 1 a$=a$+n$(1 1 a$=a$+"VEGE ": 1 a$=a$+" too big": 1 a$=a$+" stored": 1 a$=a$+" copied": 1 a$=a$+" "+ 1 a$="top right" 1 a$="no room" 1 a$="mc byte:": 1 a$="lower left": 1 a$="copy "+s$(s): 1 a$="WHILE" 1 a$="UNTIL" 1 a$="TASRL 2G": 1 a$="TASRL 1 ": 1 a$="REPEAT" 1 a$="Name Word:": 1 a$="Give UDG number:": 1 a$="Forget ": 1 a$="File Name:": 1 a$="Continue definition:": 1 a$="COPY": 1 a$="BEGIN" 1 a$="BASIC+VARS = ": 1 a$="01234": 1 a$="0123"+ 1 a$="***>": 1 a$=" CHRNMBNBANMNCHAFNV" 1 a$=" ........ Line "+ 1 a$;" not found": 1 a$(x);"+": 1 `s.code C 1 `s.code B 1 `c(&$"f 8642f.,*jbd0hbd08 1 `beta2codCP 1 `Ptyping symbol shift q. 1 `HThis allows you to recall any ofyour own chars. 1 `ENTER # for command " for textdirectly for data and formulaeENTER text - press 'ENTER' when complete Blank,Calc,Edit,Format,Go,Load Print,Quit,Repeat,Save,Trans CALCULATING ENTER the new formula and then press 'ENTER' ENTER data or a formula $Prefix= absolute cell reference 1 _zamena9diska 1 _wwod9komand 1 _wozwrat9w9 1 _stranica9wpered 1 _stranica9nazad 1 _perekl`~enie9zagl= 1 _perekl`~enie9revimow9 1 _informaciq 1 _`ObjectCode 1 ___enlarget__disk_name 1 ___________init_printer 1 ______________________________ 1 ____________________ 1 _____NLQ___disk_name 1 __L:5____v1511_*4931_____C:g__________A:30001=7531_*200______C:c__________A:49680=C210_*4325_____C:CADNET16___A:32976=80D0_*3539_____P:HP4TM161___L:5____v0____*52_______C:HP4TM161___A:24598=6016_*21663____P: 1 _)('&%$#@! 1 ^islo9NE9bolx{e 1 ^headlistB 1 ^hcode C 1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNmmmmmmmmmmmmmmmmmmmmmmjmmmmmmmmm 1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNmmmmmmmmmmmmmmmmmmmmmjjmmmmmmmmm 1 ]omkl B( 1 \com C 1 \CLOSE BI 1 \####~_#~W#F 1 [ENTER]-No/Yes 1 ["#[*!["'[ 1 [!#s#r#"## 1 Zobraz zpr 1 Zobraz seznam polo 1 Zi"*p",p{2ppz2qp 1 Zcataliz CP 1 Zapustitx9fajl 1 Zapisatx9izmeneniq 1 Zapisatx9dorovku 1 Zapisatx99sektor 1 ZXED - TOOLKIT FOR THE 1 ZX Interface 1 not present 1 ZPq = Load UDG char. 1 You're at toplevel 1 You don't say what to do with 1 YTES - Free memory space 1 YS MegaBasic v3.0 1 YS MEGABASIC 1 YCATALIZ B 1 Y,X;"Number Disca:": 1 Y,X;"Name:": 1 Y,X;"Input No DISC :";: 1 Y,X;"Input KEY: ": 1 Y,X;"IN TAB:";: 1 Y too large 1 XX0``lhphl 1 XSPR.EDITB 1 X too large 1 X catalogue 1 X CTPOKAX MEH 1 X PE 1 Wyjti9iz9procedury 1 Wy9uwereny9 1 Wstawxte99prinima`}ij9dis 1 Wstawxte99kopiruemyj99dis 1 Written by Roy Eastwood 1 Written by N.Rodionov 1 Write text 1 Window too smal 1 Window too larg 1 Which density for modul (N/Q 1 Which delay after modul (0to9 1 WcompilerC 1 WInvalid extension file 1 WF F(X,Y)B 1 WELCOME TO SINCLAIR LOGO 1 Vladimir Fedorow 1 Version 3.0 1 V4.1 All rights reserved 1 V 3.02R 512K 1 UNDEFINED SYMBOL 1 UNAUTHORIZED COPY 1 Type y to run: 1 Turtle out of field 1 Turtle out of bounds 1 Tt.23-09-2 1 Trab.47-31-6 1 Tr.64-23-8 1 Tr.485-64-0 1 Tr.23-50-9 1 Top of memory: 1 Top of RAM? 1 Top of RAM for 'T'? 1 Too many inside parentheses 1 Tm.97-72-6 1 This line may require manual 1 The most complex (yet cheapest) component is the microprocessor or CPU (Central Processing Unit)The CPU in the Spectrum is a Z80z 1 Text starts: 1 Text ends: 1 Text end = 1 Text Data 1 Testbild B 1 Testbild A 1 Td.63-48-3 1 Td.278-52-7 1 Tape for include 1 Tape error! 1 Tape error 1 Table used: 1 Table Size? 1 TOTAL ERRORS 1 TO"''''"HA 1 TECHNOLOGY RESEARCH LTD. 1 TE HOMEP "'Y 1 TARGET disk 1 TAPE TO DISK COPIER VER 5.0 1 TAPE LOAD ERROR 1 TAPE ERROR 1 T40-41-51...5 1 T$="DATABASER" 1 T o B o S - F P 1 S~itatx99dorovku 1 System Call Error 1 Syntax error 1 Swobodno>>>>> 1 Stertyh>>>>>>>> 1 Steretx9mark 1 Starting address? 1 Starting address: 1 Start tape.. 1 Schachbrett 1 Scale Inc. 1 SYMBOL TABLE 1 SUPERSOFT SYSTEMS 1 SUPERCODE TOOLKIT 1 STOPPED!!! 1 START LINE: 1 S=_Peterburg 1 S&V&Y&\&_&a&d&g& 1 Rotation = 1 Rot. Inc. = 1 Reset 1 to 8 1 Reset 0 to 9 1 Radiergummi 1 ROBOT PROBLEM 1 RIPPLE-SCROLL RIGHT 1 REWIND TAPE 1 RESTRICTION: use assignment or move() to initialise automatics 1 RESTRICTION: macros may not have parameters 1 RESTRICTION: cannot nest includes 1 RESTRICTION: can't manage initializers yet 1 RESTRICTION: Floating Point not implemented 1 RESTRICTION : floats not implemented 1 RCOMPILERB 1 Quit program 1 QM C 1 Punktraster 1 Pt = Stop 1 Ps = Help 1 Press: C to continue P to copy R to restart E to exit 1 Press no. of option 1 Press any key to continue 1 Pprogram from the memory if your BASIC program is more than a 1 Po = Edit char. 1 Please wait-only 50 seconds left 1 Please wait-only 5 seconds left 1 Picture ElementsUDGs Screen g 1 Picture no.= 1 Perwaq9swobodnaq9dorovka>> 1 Pereme}enie9kursora_klawi{ami9kursora 1 Pereimenowat 1 Pass 2 errors: 1 PTo restart the UDG program (if still in memory) type GOTO 20. 1 PThis allows you to load any of the normal char. set into the grid. The " 1 PROGRAMMED DRAW PARAMETERS 1 PROGR B9 1 PROC stack underflow 1 PROC stack overflow 1 PRINTADD COMM DIFF 1 PRESS [BREAK] TO STOP 1 PLATA BF=F=> 1 PENTER CHAR. < > 1 PEND string to line(s) 1 PCSPIYIXHLDEBCAFSZ H VNC 1 PAMME (10 1 P PE3EPB 1 Overwrite (Y/N)? 1 Out of memory! 1 Out of RAM 1 Oprav tuto zpr 1 Object save 1 Ob?em9fajla9iz 1 OVE lines of your program 1 OPY Lines of your program 1 OM.BAS3.0B 1 OK-Searching 1 OH"''''" 1 OFF ON TO FROM UNSETSET 1 OBJECT CODE BUFFER& 1 O: ";U$''' 1 O9[9I9B9K9 1 Nzamahaew a 1 Nwitq(kofe 1 Nwitalik(sal 1 Nwitalik(d.31 1 Nwiktor(LEW 1 Nwadik(wideo 1 Nwa%enko w 1 Number too large 1 Number too big 1 Number expected 1 Ntrembowler (uho 1 Ntolik(wideo 1 Ntibab$ew o.g 1 Ntelegramma po t 1 Nsokolowskij b.d 1 Nsluckij o 1 Nskoropad serg 1 Nsimferopol 1 Nsergej(apparat 1 Nserebro ole 1 Nremont telef 1 Nradio(remont 1 Nradio(import 1 Npokrowskij a 1 Npino toli 1 Nped&enko w 1 Nowaq9mask 1 Not enough space to proceed 1 Not enough items in 1 Not enough inputs to 1 Not Z80 code! 1 Nostrowerh w 1 Noleg(wideo 1 No more text 1 No Table Space 1 No Symbol Table space! 1 No Macro Space 1 Nnikolaj(rodina 1 Nmama(ryvij! 1 Nmag."orlenok 1 Nmag."@t"(pawl.pol. 1 Nma$kow n.i 1 Nkrasowskij g 1 Nkramskoj igor 1 Nkorostowa n.e 1 Nkorostelew b 1 Nkino"ukraina 1 Nkino"sal@t 1 Nkino"rossiq 1 Nkino"ordvenik 1 Nkino"moskwa 1 Nkino"kiew 1 Nkino"1-j komsom 1 Nkatunin bori 1 Nkala$nikow w 1 Niwanow serge 1 Nistomin(hoztorg 1 Nistomin (babai 1 Nigorx(wideo 1 Nhomenko a.a 1 Nhalatow a.w 1 Ngrajworonskij o 1 Ngolowko mih.ilxi 1 Ngolowko anat0li 1 Ngolow&enko a.w 1 Ngena(kul`tur 1 Nfateew serg 1 Nfateew a.a 1 New Base ? 1 Nesankcionirowannaq99kopi 1 Ne9TOT9disk99 1 Ndragan anatoli 1 Ndnepropetrows 1 Nbogoqwlenskij w 1 Nberevnoj wl.iw 1 Nberesteckij ven 1 Nbelqwskij aleks 1 Nbelow mih.georg 1 Na~alo_dor= 1 Naru$an`qn aleks 1 Naleks.mih.(odes 1 Nabramow nik 1 Na9diske9NET9takogo9fajla 1 Na#roport(spr 1 NOT ENOUGH MEMORY 1 NO IN MEMORE CATALOC 1 NEW DISC ?";h$ 1 NEGNATOCCRA 1 N@ra(torty 1 N@ra(hol.gor. 1 N@ra($apki 1 N09 star$a 1 N&erka$in w 1 N$="NUMBER ARRAY": 1 N$="BYTES": 1 Multiburst 1 Mnogo9sektoro 1 Mnogo9fajlo 1 Missing parameters 1 Menu Okraj Okno Pap 1 Maths Call Error 1 Mark=9fajlow 1 Macro buffer? 1 MULTIPLY DEFINED SYMBOL 1 MULTIPLE DEFINITION 1 MONITOR AND DISASSEMBLER" 1 MISSING INFORMATION 1 M+A;"- ";C$(M); 1 M+A,"- ";C$(M); 1 M$="ADRESS = ": 1 Load/loadQ/Sa/Ve/Tim/Den/Cl/Exi 1 Line not found 1 Leningrad,11.1990 1 LTER - Search & replace 1 LOGTXTBINSCR 1 LOGO not fresh 1 LOADING, PLEASE WAIT !" 1 LOAD BASIC PROGRAM: 1 LIMIT: no more memory 1 LIMIT : too much global data 1 LIMIT : too many types 1 LIMIT : too many case statements 1 LIMIT : name table full 1 LIMIT : local symbol table full 1 LIMIT : global symbol table full 1 LIMIT : expression too complicated - too many operators 1 LIMIT : expression too complicated - too many arguments 1 LEONARDO error trap. 1 Kopirowatx9s9 1 Konvergenzgitter 1 Kontrolx9diskow9 1 Konfigure list 1 Konec9_dor= 1 Katalog Microdrive/disku 1 KO CTPOK B KA 1 KO 3HAKOMECT 1 KEY FUNCTION 1 K$="erase" 1 JZjzFV^x@HPX`hCSsW_K[GO{yAIQYaiBRbrFG@ABCDENOHIJKLMVWPQRSTU^_XYZ[\]fg`abcdenohijklmvwpqrstu~ 1 JZjzBRbrxW_y@AHIPQXY`ahiCSsFG@ABCDE 1 Insert after ? 1 Insert TARGET disk 1 Insert SOURCE disk 1 Input FILTER name 1 Information 1 Index too Low 1 Index too High 1 Increment ? 1 Include file is empty! 1 Include buffer? 1 Illegal window 1 ITURBO COP 1 ITURBO COM 1 ITRANZIT 4 1 IOMNI COPY 1 INE - address of line 1 IND - Search & list 1 ICOPY DE LUX 1 I2SPED COP 1 I$="cataliza": 1 I don't know how to 1 Hnumeric columns to the left of the grid also changing. These are the numeric values of the rows of the grid in hexadecimal and decimal form. The char. in the bottom right-hand corner 1 Hledej ve v 1 Hisoft Pascal Disk 4T 1 HiSoft GEN Assembler ZX Spectrum 1 Hhowever, that you might have to type NEW to clear the UDG 1 Halt at PC= 1 HTo select a function, position the cursor between the following< > symbols and press ENTER. TheENTER key is also used to exit the functions. 1 HThe program offers 6 functions. 1 HThe program displays each char. in a grid form, with each dot ofthe 64 dots that go to make up achar. enlarged 256 times. 1 HO ";C-Z;" PE 1 HO ! TEKCT. PAC 1 HL ZX FORTH 1 HJames Hutchby 1 HISOFT-C Compiler V1.1 1 HIRES SCROLL-UP 1 HCIAQK!=9N;"( 1 HBBCBJBCBBBGFABB 1 H4. Load normal char. 1 Gsuper c2C 1 GGGGGGGGGGGGGGGGGGGGGGGG 1 GGGGGGGGGGGG 1 GGGGGGGGGGDDDDDDDDDD 1 GGGGGGGGG; 1 GGGGGGGGG"} 1 G R A F I K A 1 Fsuper c1B 1 Fscrn C 1 From Line ? 1 Freddy A Vachha Vic B Rumsey 1 File:t 1 File:T 1 File not found 1 File already exists 1 File Absent 1 Figure table 1 Fajlow>>>>>>>>> 1 Fajlow>>>>> 1 Fajl99su}estwuet 1 FX not implemented 1 FOUND FILE: 1 FILE TOO BIG 1 FIGURE TABLE 1 FIELD OVERFLOW 1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF& 1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 1 FFFFFFFFFFF 1 F#N#^#~#fo 1 Executes: 1 Error catalog! 1 Enter new address:~~~ 1 Enter mask:~~~~~~~~~ 1 End Address: 1 EVITIMIRP. 1 ERROR number 1 ERROR - 27 - undefined symbol 1 ERIFY - list ALTERations 1 EQUENCE-Auto line numbers 1 ENUMBER line numbers 1 ENTER continue : SPACE abort 1 ENTER COMMAND => 1 ELP - This menu 1 ELETE Lines 1 EERCSRAELC 1 EEEEEEEEEGGG 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDD 1 EEEEEEEEEEEEEEEEEEEEEE# 1 EEEEEEEEEEEEEEEE( 1 EEEEEEEEEEEEEEEE 1 EDITOR CATALIZATORA INPUT SWAPEN" 1 EDI=EDI-23 1 ECTBO 3HAKOMECT B CTPOKE 1 ECTBO O 1 E: ";(C$(N))'A(Z,N): 1 E: ";(B$(N))'A$(Z,Y 1 Driver MC 6304 1 Draw table 1 Dlina9999fajla>> 1 Disk-Doctor 1 Disk Error 1 Destination of an assignment must be an lvalue 1 Delimiter: 1 Delete text(Y/N) 1 Delete selected 1 DIVISION BY ZERO 1 DIS:00:PRO:11111111:222:333:44:5 1 DDDDDDDDDDDDDDD 1 DDDDDDDDD4 1 DDDDDDDDD! 1 DATA TYPE: 1 DATA ARRAY 1 D$(N)>D$(N+1 1 D$(N)=D$(N+1 1 D$(N)=A$(N,Y 1 Copyright (C) HiSoft 1987 1 Copyright 1 Coords. to 1 Clear address: 1 Check TARGET disk? 1 Change drive 1 Change disk 1 Change buffer 1 Catalog full! 1 Cannot initialise this (disallowed type) 1 Cannot initialise this (disallowed storage class) 1 Can't divide by zero 1 CURSOR PLOT UNPLOT INVERT PICTUREMAGCOPYFIGURE COLOUR PRINT COLCOPYMAGCOPY 1 CTPOB: ";Z: 1 CTPOB"''': 1 CTPOB"''"7- 3A 1 CTPOB"''"6- CO 1 CTPOB"''"5- K 1 CTPOB"''"4- CO 1 CTPOB"''"( 1 CTPOB COCTAB 1 CTPE BAM H 1 CTPA: ";Z'"CBO 1 CTPA: ";N;" / ";Z''' 1 CTPA ";M;" ";Z'"K 1 CTP No. ";N''': 1 CTP No. ";N''' 1 CP Software Presents 1 CONVER Comander 1 CODE LENGTH: 1 C=\"B\z2D\ 1 C$(P);":"; 1 C$(N);":"; 1 C$(M);": "; 1 Brush mode= 1 Bdc CL 1 Bad file name 1 BS.COD B 1 BRANCH OUT OF RANGE 1 BMEM.ED B 1 BIT-LET CSM-LOGO 1 BDATALOG BT 1 BASIC SYSTEM ERROR ? ? ? 1 BASIC LENGTH: 1 BAD OPCODE 1 BAD EXPRESSION 1 BAD ADDRESSING MODE 1 B$(P);": ";A$(N,Y 1 B$(N);": ";A$(Z,Y 1 B$(M);": ";A$(N,Y 1 Aktualizace na Mdrive/disku 1 Adres9zagruzki>> 1 ASSEMBLY ABORTED 1 ANOTHER COPY ? (Y OR N) 1 ALL FID OKEY 1 AEXAMPLE B 1 ADR=ADR-30005 1 ADQ,ADR-256 1 A:1 <B> 6:cat <#> 16Y 1 A(Z,N));A(Z,N): 1 A(N,P));A(N,P): 1 A$="BLOCK LENGTH = ": 1 A$(C,D*A): 1 @store your own chars. in the 1 @move the cursor anywhere in the grid. Typing SPACE will remove adot, any other key will add a dot. If you change the char. in the grid you will see the 2 1 @change the char. in the grid. Using keys 5,6,7 & 8 you can 1 @area set aside for them above RAMTOP. 1 @User Defined Graphics 1 @UDG is a program to help you to develop your own graphic chars. quickly and simply. 1 @This function will return you tothese explanatory notes. 1 @Pwill also change. This is the actual size of the char. in the grid. 1 @Pfew statements long. 1 @FUNCTIONS (3) 1 @FUNCTIONS (2) 1 @FUNCTIONS (1) 1 @BBBBBBBBBBBBBBB 1 @BBASDBASDBHSDBB 1 @B C 1 @@5. Help. 1 @@2. Save UDG char. 1 @@1. Edit Char. 1 @=Kowalewskij 1 ?~~~~w~?~~~?~~~~~?~~~~~~~~~~~~~~?~~~ 1 ?wo}ww?ww~~???o{ww{ 1 ?PAHG@IPOHQ@O 1 >not found" 1 >.w>0#w#w# 1 =m4 DX 1 =m3 DX 1 =m2 DX 1 =m1 DX 1 =c C 1 =MATCALC4B 1 ==== ZX SPECTRUM. 1 ;zz;"<z<";sz 1 ;zy;"<y<";sy; 1 ;zx;"<x<";sx; 1 ;j$(bd+s,b): 1 ;f$;"<";o$;">";" (y/n/e)?" 1 ;d$;" nem deklaralt valtozo": 1 ;b$;f$;"<";o$;">": 1 ;a$;b$;c$;d$ 1 ;N;"- ";B$(N): 1 ;N+A;"- ";C$(N): 1 ;;:+[=2+[!*[ 1 ;;:+[=2+[!%[ 1 ;"zaznam, nezalezi na"; 1 ;"jednotlivych modulu" 1 ;"hustote" 1 ;"funkcja ? f(x,y)="; 1 ;"for compile--> RANDOMIZE 1 ;"by Mike Singleton" 1 ;"________"''"The program identifies up to 99 files saved on a tape cassette. Their decoded headers constitutethe ""volume"" directory."' 1 ;"________" 1 ;"Zurueck zum Menue mit N/L": 1 ;"ZX Spectrum(16K)"; 1 ;"ZX Spectrum (16K)" 1 ;"You may now NEW the BASIC loader"''" Start adress is 59300" 1 ;"You may now NEW the BASIC loader"''" Please refer to manual" 1 ;"Wie sollen die Punkte sein:"; 1 ;"Wie soll das Gitter sein?"; 1 ;"Welcome to MIKLE's" 1 ;"Welche Farbe fuer:"; 1 ;"Was wuenschen Sie?"; 1 ;"Was wuenschen Sie ?" 1 ;"Verify- pro prave porizeny"; 1 ;"VU-CALC": 1 ;"Two speed copy v.1" 1 ;"To enter,type:" 1 ;"The file-header directory of the"'" present volume identified as:"'' 1 ;"The directory is empty."''" Press a key to initialize it": 1 ;"The arrow keys move cursor ( 1 ;"TELEVISION" 1 ;"T/t-TAPE D/d-DISK M/m-MEMORY": 1 ;"T E S T B I L D"; 1 ;"Start at page? (1)": 1 ;"Start at line? (1)": 1 ;"SZALAG ALLJ!": 1 ;"STOP THE TAPE"; 1 ;"START ADDR 30000? y/Y-n/N" 1 ;"S C H A C H B R E T T"; 1 ;"S - save lst" 1 ;"Rename": 1 ;"R Rand"; 1 ;"Q - quit" 1 ;"Q Quadrate"; 1 ;"Press any key" 1 ;"Press 'y' for continue" 1 ;"Povely:" 1 ;"Please Wait": 1 ;"PUT CARTRIGE IN DRIVE 1 AND THEN PRESS 'ENTER'" 1 ;"PROG:";(ADR-30006 1 ;"PRINT USR 29369" 1 ;"PRESS 'M' TO COPY TO MICRODRIVE PRESS ANY OTHER KEY TO CONTINUE" 1 ;"POSTERN" 1 ;"PLEASE WAIT" 1 ;"PLEASE WAIT A MOMENT": 1 ;"Nummer eingeben:" 1 ;"Nummer eingeben fuer: " 1 ;"Name: ";n$ 1 ;"NUMBER TOO BIG": 1 ;"NUMBER TO START (0-RESTART):";an 1 ;"NOW LOADING": 1 ;"NEW START ADDR 16384? y/Y-n/N": 1 ;"NEM ISMEREM A ";i$;" PARANCSOT!": 1 ;"MegaBasic" 1 ;"MONITOR AND DISASSEMBLER"; 1 ;"Loading Hisoft C"; 1 ;"Load your BASIC programm " 1 ;"Leeds, U.K." 1 ;"LOADING CODE" 1 ;"LOADED OK" 1 ;"LINE No ";LIN: 1 ;"L - load lst" 1 ;"KOMPILATOR": 1 ;"Insert Disk" 1 ;"INFRARED"; 1 ;"GRAPHIC AREA" 1 ;"For compile-->RAND 1 ;"Follow the prompts to expand a REM statement (to accommo 1 ;"FREE:";49999 1 ;"FILE ";r$;" NOT FOUND !" 1 ;"F A R B B A L K E N"; 1 ;"Error: file ";n$;" not found" 1 ;"Error: file ";n$;" exists" 1 ;"Erase file:": 1 ;"Editor/Assembler Fusea 1 ;"ENTER 1 : EXIT PROGRAM"'' 1 ;"Double Disk Monitor" 1 ;"Density-zmena hustoty modulu" 1 ;"D - DOS" 1 ;"Choose action:"'''" d - DISPLAY DIRECTORY"'" h - SHOW ITS STRUCTURE"'" a - ADD TAPE POSITIONS"'" i - INCL. NEW HEADERS"'" t - SAVE DIRECTORY+PRGM"''" s - CLEAR & SAVE PRGM"'" n - MAKE NEW DIRECTORY" 1 ;"Character ";C: 1 ;"CURSOR"; 1 ;"C - catalogue" 1 ;"BLOCK LENGTH 6912? y/Y-n/N": 1 ;"BLOCK LENGTH ";BL: 1 ;"BARMIVEL INDITHAT": 1 ;"B - Basic" 1 ;"Are you sure?(y/n/e)" 1 ;"Are you sure? (y/n/e)" 1 ;"Are you sure? (y/n)" 1 ;"ASSEMBLED: ";: 1 ;"A. G A ` U S"; 1 ;"A - Assembler" 1 ;"<";o$;">": 1 ;": ";a$(3 1 ;"8. LOAD DATA ": 1 ;"7. LOAD H+ DATA "; 1 ;"6. VARS"; 1 ;"6 gelb"; 1 ;"5. START"; 1 ;"5 gruener Schirm"; 1 ;"5 cyan"; 1 ;"4. CONTINUE "; 1 ;"4 gruen" 1 ;"4 blauer Schirm"; 1 ;"3. READ"; 1 ;"3 : RETURN TO VU-CALC": 1 ;"3 roter Schirm"; 1 ;"3 magenta"; 1 ;"2. BYTES"; 1 ;"2 : CLEAR WORKSHEET"'' 1 ;"2 rot"; 1 ;"2 Farbbalken mit Kreis"; 1 ;"1 blau"; 1 ;"1 Farbbalken ohne Kreis"; 1 ;"0 schwarz"; 1 ;"------------------" 1 ;"-";b$;" ";z$;f$;"<";o$;">";x$;"(y/n/e)" 1 ;"- vymazani programu" 1 ;"- pro rychle zaznamy" 1 ;"- pamatuje si hustoty"; 1 ;"- normalni rychlost" 1 ;"- nastaveni pauzy po modu-lech, 0 je standard, kazda dalsijednotka je asi 0.6 sekundy" 1 ;"*** HEADERLIST ***"'' 1 ;" SAVE CATALOC MEMORE (Y 1 ;" PRO:";: 1 ;" LOADING ERROR " 1 ;" LOADED O.K. " 1 ;" Exit TRDOS " 1 ;" D E L P H I N ": 1 ;" Copyright CATALIZATOR Lebedeva" 1 ;" Cat "; 1 ;" CONTINUE ?" 1 ;" "'''"HOPMA 1 ;" for EPSON FX-800" 1 ;" for D100M" 1 ;" VR/& BOOTER B " 1 ;" DISK VERSION ": 1 ;" 2 mit Kreis"; 1 ;" 2 klein"; 1 ;" 1 ohne Kreis"; 1 ;" 1 gross"; 1 ;" 1 Punktraster"''" 2 Konvergenzgitter"''" 3 Schachbrett"''" 4 Multiburst"''" 5 Farbbalken"''" 6 Testbild A"''" 7 Testbild B" 1 ;" ";b$;" ";c$ 1 ;" PRESS A KEY FOR MENU": 1 ;" "; 1 ;" ": 1 ;" ": 1 ;" " 1 ;" ": 1 ;" " 1 ;" " 1 ;" ": 1 ;" 1 :mg CX 1 :Speedyload 1 :Pp = Save UDG char. 1 ::::::::::::::::::::::::::::::::8888888888888888888888888888888888888888888888888888888888888888 1 : Vynech Opi 1 9zapisatx99katalog 1 9stertyh>>> 1 9prerwatx9operaci 1 9ignorirowatx9fajl 1 9MATCAL48B 1 9Konec9programmy9 1 9@=Kowalewskij 1 999swobodnoj9zone 1 8Vyhledej a p 1 8Vyber jinou zpr 1 8I@Editor/Assembler 1 8Hledej ve zvolen 1 8A@CBD$#!" x 1 88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 1 7hh2 C 1 7hh1 C 1 6B.BAS3.1B 1 62SPC C 1 54wpqrstu6 1 52224,3000 1 34ABCHJKLF 1 32 chars)"'''' 1 31200+K48*32800,512 1 30467-30457) 1 30466+256* 1 30000,ADR-30000 1 3. Load graphics 1 2nd parameter: 1 2c`2``!&`"a`!0g"d`! 1 29696,2341 1 256128 48: 1 22 File(s)C 1 22 ORIGINAL SYSTEM PROG. BY"Rsoft" ____P:COPY/86M___L:10___v0____*68_______C:code16416__A:16416=4020_*2016_____C:USR63637___A:63637=F895_*1857_____P:tasword_v2_L:15___v70___*7293_____C:tasword_v2_A:54784=D600_*10751____C:word_______A:31941=7CC5_*59_______P:CAD_+_3D 1 2. Save graphics 1 1st parameter: 1 1983 SUPERSOFT SYSTEMS 1 123456789012345678901234567890 1 12 Functions: 1 1. Create graphics 1 1-131E1H1K1N1Q1T1W1\1b1e1h1 1 0telefonnaq knig 1 0sinklogoBW 1 0SINKLOGOC 1 0SINKLOGOB 1 08|||84$$EE,9 1 02SPEED CB[ 1 0123456789ABCDEFT 1 00000000055000 1 00000000000000000000000000000000000000000000000000000000000000000044444444444444440000///////0000000000000000000000000/?????/0000000000000000000000000(?????/0000000000000000000000000/?????/0000 1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000! 1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 1 000000//555000000000000000000000000000//550000000000000000000000000000000550000 1 000///////0000 1 0(LTL(4$$EE* 1 0'02090G0J0S0a0h0q0 1 0 Del. FileD 1 /g}/o#:#w<2#w 1 /*==!=++--&&||<=<<>=>>-> 1 /'/,/3/6/B/R/U/n/ 1 .rusprn C 1 .$.;.?.O.[._.m.q.w.z. 1 .!1!4!7!:!=!@!C!F!I!L!O!R!U!X![!^!a!d!g!j!m!p!s!v!y!|! 1 -i)=h$(n-m*16 1 -,nohijklm. 1 -#-'-1-F-P-]-`-k-n-u-|- 1 ,v2;"Press no. of option": 1 ,u6;n;","; 1 ,spis D 1 ,begin-r+254 1 ,begin-r+251 1 ,(,/,@,C,J,P,Z,],c,f,l,p,~, 1 ," bright(0-1)",0 1 ," paper(0-7)",0 1 ," flash(0-1)",0 1 +tel D 1 +spisok D 1 +N+F+^+Vp#q#r#s 1 +K48*32800 1 ++++++++++ 1 +#+J+S+\+_+b+h+ 1 +"W\#"S\"K\#"Y\ 1 *{\++"pu"ru! 1 *^[&%>}/,-]'$<{?.+ 1 *W\#"S\"K\6 1 *WARNING* 1 *3m###"3m*5m 1 *1#"5#*/#"3#* 1 **m~#"*mo& 1 **************** 1 ******* AVP *********** 1 ***** M E N U ***** 1 ***** READ CAT ***** 1 ***** New B: ***** 1 ***** New A: ***** 1 **** store grid ******* 1 **** save sprites ***** 1 **** display sprites ** 1 *** get graphic ******* 1 *** EPSON driver ****** 1 *** Copy/Q A: B: *** 1 *** Erase/Q B: *** 1 *** Erase/Q A: *** 1 *** Copy/Q A: B: ** 1 *** Copy b:*,a:* ** 1 *** Copy a:*,b:* ** 1 *** Cat - Number *** 1 ** sprite designer **** 1 *(k$="t")+290 1 *(k$="s")+340 1 *(k$="n")+30 1 *(k$="i")+310 1 *(k$="h")+360 1 *(a$="z")-10 1 *(a$="y")-10 1 *(a$="x")-10 1 *(a$="u")-10 1 *(a$="s")-1000 1 *(a$="d")+3000 1 *(a$=":")+2000 1 *(a$="7")-10 1 *(a$="5")-10 1 *(*1*8*C*H*P*f*l*o*r*x* 1 *&-!~VU 1 *"m";n;"cc.code" 1 *"m";d;"ds" 1 *"m";d;"dc" 1 )empty B 1 )LOGO B 1 )="/"+g$(i) 1 )=" SISTEM PROGRAMS DX1 Side B" 1 );"records:"''"________________________________"''' 1 );" ";e(a,4 1 );" ";e(a,3 1 );" ";e$(a) 1 );" ";a$(18 1 )/!!/{HHxIHHy 1 ),yp*(tl-1 1 )")%)()/)6)9)@)G)M)Q)`)}) 1 )"''"2- 3A 1 ) I = ink. P = paper." 1 ) 1 (z(i)>y(i) 1 (i*i+j*j): 1 (a-u,1-774) 1 (C) ADAMEK 1987 VER. 1.2 060387L 1 (C$(M));" HOB 1 (B$(M));"HOB 1 (0-7):";cw 1 ((00000000000000 1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((8888888000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000088888888888888888888888888888888888888888888888 888888888888888888888888 8888888888888888888888888888888888888888888888888888 88888888888888888888888888888888888888888888888888888 1 (#uper c1" 1 (!(((+(/(8(A(D(G(d(g(q(w(}( 1 'UDG B/ 1 'True Vid.' 1 'Inv. Vid.' 1 'Graphics' 1 'Caps Losk' 1 'CONVER-Utility' & Y.Kovalevsky 1 '()*+,-./0123456789:; 1 ''''"Stack:";(29676 1 ''''"ERROR was at"''"COLUMN "; 1 ''''"ENTER data file name": 1 '''"BEFORE starting the tape, press:"''"c if file-start readings of the tape counter are to be put in to the file ID record"''"- any other key if not."''''''"AFTER all the files constituting the volume are identified"''" press BREAK key and GO TO 0.": 1 ''" contains now ";y$(1 1 '&'/'6'<'?'B'F'I'L'O'V'd'g'q'v'|' 1 '"You can also get characters frommemory and edit them." 1 '"Word not found.": 1 '"Word already used.": 1 '"Typing error.Continue.": 1 '"Tape OK.": 1 '"Keys to use are shown at the topof the next screen." 1 '"Before starting, do you want to load a set of characters from Disk?" 1 &udgg C 1 <VZ^dfhjnprxz~ 1 &0&9&A&J&R&Z&b&m&r&u&x& 1 &' !"#$%./()*+,->?89:;<= 1 %demo 4 C; 1 %demo 3 C 1 %$fg`abcde& 1 %#%*%1%9%E%H%K%O%Z%]%`%c%j%u%}% 1 $demo 2 C 1 $demo 1 C 1 $&$,$9$<$?$H$K$T$W$Z$`$v$ 1 $$=? STXW<>RP|^&OQ+-*/% 1 #udg CX 1 #s#r###s#r 1 #^#V#N#F#n& 1 #H#S#Y#^#b#h#t#~# 1 #DRAW B 1 #4_mc_____A:64000=FA00_*730______P:Russisch___L:1____v0____*149______C:RUSSISCH___A:64508=FBFC_*1000_____P:EDITAS_____L:10___v0____*567______C:EDITAS_____A:58873=E5F9_*6423_____P:SUPERCODE__L:0____v19___*413______S:__________________________________C:SUPERCODE2_A:57344=E000_*8118_____P:Speedyload_L:10___v0____*5747_ 1 #4________L:1____v0____*121______C: 1 #(,059=BFJOSW[_dhlptx| 1 ###~#fo#~#fo 1 #"a\"c\"e\* 1 "y/n? ";a$ 1 "welche Nummer? ";n 1 "super c2" 1 "super c1" 1 "routines" 1 "pascal d" 1 "p#q#w#s#r 1 "now installed in high memory. Itcan be run by RAND USR 54000. Please read the instructions carefully before using this program." 1 "monitor16K" 1 "insert disc & press any key" 1 "headlist" 1 "file ";a$;" not found": 1 "elj.cime","neve": 1 "e\"a\"c\*B\ 1 "dict&chrs" 1 "compiler" 1 "cBeta 3.1" 1 "cBeta 3." 1 "b:*","a:*" 1 "a:*","b:*" 1 "Z = stop." 1 "X" PRO POTVRZEN 1 "This program lets you design sprite graphic characters and store them in the memory, and ontape." 1 "The 48K version of "; 1 "TAPE COUNTER:";y$(k, 1 "Store in which graphic(1-16)?";no 1 "START LINE "; 1 "START ASDESS";ADR: 1 "START ADDR ";a: 1 "SPR.EDIT" 1 "Rand: ";r;: 1 "ROW ";d$: 1 "REAL START ADRESS ";STA: 1 "Quadrate: ";q;: 1 "Press ENTER to continue";b$: 1 "Please play back to verify.": 1 "PRINTER IS ON" 1 "PASCAL D" 1 "OPTION? ";a 1 "Nummer eingeben: ";u: 1 "Nummer eingeben ";z: 1 "Number start file:";a: 1 "Name-";a$: 1 "Name of text file for saving?",a$: 1 "Name of text file for loading?",a$: 1 "NEW START ADDR ";c: 1 "NAME-";a$: 1 "NAME BLOCK ";N$: 1 "M.BAS3.0" 1 "LPEPS.dr" 1 "LP100.dr" 1 "LLEPS.dr" 1 "LL100.dr" 1 "KEY: ";F$: 1 "I["G[)"K[! 1 "HEADERLIST" 1 "Get which graphic(1 -16)? ";no 1 "G = get graphic. C = clear grid S = store grid. T = Disk save." 1 "Forgotten:";a$ 1 "File tape5.0< 1 "File ";n$;"<";o$;">";" exist": 1 "F#N#^#~#fo 1 "F F(X,Y)" 1 "Enter file name:";n$ 1 "Enter Device: (A,B)" 1 "EPSON READY" 1 "ENTER THE VOLUME IDENTIFICATION:"' 1 "ELORE","HATRA","JOBBRA","BALRA","ISM","ISMVEGE","","VEGE","LEGYEN","IRD","+","-","*","/","ORR","ORRNE","PROGRAM","CIMEK","TINTA","PAPIR","KERET","KOZEP","SOS","TOLL","TOLLNE","SZIVACS","FELEJT","KONT","KOPIR","KOR" 1 "Driver installed" 1 "Dont andestand type file": 1 "DISC No: ";N$;" Name ";: 1 "Copy b:* a:*": 1 "Copy a:* b:*": 1 "Compiling - please wait." 1 "Beta 3.1" 1 "BLOCK LENGTH";BL: 1 "BLOCK LENGTH ";b: 1 "ADRESS-";A: 1 "==============================": 1 ";pl;" lines 1 "9",f;" return to text file "; 1 "9",f;" enlarget MODE "; 1 "8";"PRINT OPTIONS"; 1 "8",f;" double strike MODE "; 1 "8",f;" merge text file "; 1 "7",f;" emphasized MODE "; 1 "7",f;" load text file "; 1 "6285";")"; 1 "62237";" lines": 1 "61469",zz1 1 "61468",zz- 1 "6",z;"type word to be replased / found": 1 "6",f;"string (y) or pages ?": 1 "6",f;" save text file "; 1 "6"*sc;" ": 1 "5");" STEP "; 1 "4"*lf;" "; 1 "3D GRAFIC 1 "3D GRAFI" 1 "32000"+p* 1 "2SPEED C" 1 "256"*zz1: 1 "240"/(lf+ 1 "23362",z: 1 "17",f;a;" bytes, ";a/ 1 "16");" PLACE No "; 1 "15",z;s$;s$; 1 "15",f;"text file ";a$;" saved:"; 1 "13",f;" set printer mode "; 1 "13",f;" EXIT "; 1 "128");"=";: 1 "12345678901234567890123467890": 1 "12",z;"with (just ENTER for find only)": 1 "12",f;" LF/72' 6 9 12 "; 1 "12",f;" GO TO DOS "; 1 "11",f;" NORMALSUPscrSUBscr "; 1 "11",f;" disc catalog "; 1 "10",f;s$; 1 "10");" LINE No "; 1 "1. LIST "; 1 "*{\"=#!:+" 1 "(p*,p#",p 1 "''"2nd version 1 "&p"(p**p: 1 """";z$;"""" 1 " old - ";f$;"<";o$;">": 1 " new - ";n$; 1 " is obtained by 1 " TOVABB "; 1 " FIELDS OF THE FILE ID RECORDS:"'''"1) file-start tape count"''"2) P:Basic prgm; N:num.array; T:char. array; C:m/c or data; X:data bellow Basic prgm area G:data in UDG area; S:Screen"''"3) file name"''"4) L:auto-start prgm line (P); A:load address decimal (C-G)"''"5) =load address hexadec. (C-G) v-variables area length (P); var. name of the array (T); var.name/number of dim-s (N)"''"6) *file length": 1 " 'w'- BCTAB 1 " 'q'- KOMAH 1 " 'l' -/- P 1 " 'k' -/- TPAHC 1 " 'c'- KOMAH 1 " '7'- BBEPX" 1 " "6"9"<"?"B"G"K"N"Q"["a"f"i"v"}" 1 " once more ? (y)" 1 " ink(0-7)",0 1 " y?";b 1 !?>(%9)'./24=5:3ABCDEFGHIJ<;608@$KSUY]cegimoqwy} 1 !4!!D%!D)!Ar 1 !3D-GRAF B 1 !1:*80 (OGJCBZSRjbzsrK[{FNV^fnv~ 1 !!!'!.!@!U!^!c!f!n!r!x!}! 1 ~ | \ { } ! 1 zvolena ** SOUBOR JE PLN 1 z magnetofonu 1 z Microdrive/disku 1 specifikace ** 1 pol. Data : ** Datov 1 open.file problem 1 na Microdrive/disku 1 is not true or false 1 is not a word 1 is already defined 1 is a primitive 1 has no value 1 foundto be changes madeVERIFY ON 1 doesn't like 1 does not output to 1 condensed MODE "; 1 celkem : Vybran 1 c.s.+2 change drive 1 c.s.+1 escape 1 at cursor : 1 Z.Kosina '84"'' 1 Vyber zpr 1 U-read Up file 1 Torun 1986 1 To Line ? 1 Tasword2->TaswordRL "; 1 TISK : Menu Jednu str 1 T-exit in TRDOS 1 Szekfu Andras 1984 1 Sy=(<={ / 1 Start-up of file 1 Size of selected files: 1 Select file 1 START THE TAPE AND PRESS ANY KEYSourceCode! 1 SOLI/LCSI 1984 VER. 1.6 1 SOLI / LCSI 1 Redefinition of character ";a$ 1 Oxford Computer Publ. Ltd. 1 OTHER KEY TO GO ON 1 Not startable 1 New name of file 1 Mike Leaman 1985 1 March 83 M Hampson"''"Please wait" 1 MONS4-BETA 1 M.Leaman 1984 1 Loading Time: 1 Leningrad 1 LIST ALL NAME PROGRAM IN MEMORE 1 LEONARDO 1 Ing.Ivan Stich Erbenova 3 Brno 1 I,O,P,L-moving keys 1 HThis function will return you toBASIC. At this point you can useany chars. you have created and saved in the area set aside for them above RAMTOP. Remember, 1 H3. Load UDG char. 1 F. Ainley 1982 1 F-Filter files 1 E-TRDOS Emulator 1 Disk drive of 1 D E L P H I N 1 Copying of this program is illegal except for storage of the purchacer's own FORTH words exclusively for his own use." 1 Catalog or File? 1 Bytes free 1 BYTES FREE (FROM H) 1 B CTPOKE"'B: 1 @ Text @ Data @ 1 : does not follow a ? properly 1 1990 V.V.Soft 1 1990 MOA B-Disk version. 1 1989 Dereschuck Software 1 1984 HISOFT 1 1984 HISOFT ": 1 1983,84 Hisoft 1 1982 Crystal Computing" 1 1982 ACS Software" 1 / DATALOG 1 - remove delete files 1 + add delete files 1 ** hodnota neur 1 ** Bez bli 1 * - mode control 1 (BREAK DOVOLEN) @Z 1 ((() 0 1 ";(N);" ";B$(N): 1 ";(N)'C$(N): 1 " 0 : F I M Q T W [ a 1 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~@ 1 dg=fok tl=teknoc lepes 1 [ENTER]-No/Yes 1 Tisk HORN 1 Robert Newman Sep 1983 1 Press the key of your choice 1 MegaBasic 1 GRAPHICS 1 EXTENDED 1 Continue ? 1 print text file "; 1 by Chernikov 1 INVALID REQUEST 1 Are you sure ? (Y/N 1 ScaleScale inc Start Link Displac Rotation Rot. inc Cycles 1 OUT OF MEMORY 1 Copy files 1 NOT FOUND 1 LISING DISCA No:";P$;" " 1 File 1 FIND ..... FIND KEY 1 CATALOG DISCA No :";N$;" 1 1 1 1 1 ret 1 E RPW !"#$%&'()*+,-./DDDDDDDDDD:;<=>?@LLLLLLLLLLLLLLLLLLLLLLLLLL[\]^L`LLLLLLLLLLLLLLLLLLLLLLLLLL{|}~ 1 N L Q "; 1 Z 1 s St L 1 N - copy marked block to cursorARROWS - cursor movement M - move marked block to cursor SYMBOL SHIFT and key to type these characters: [ ] 1 OAT BISCUITS LTD. - BUDGET (first half 1983) half-year Jan. Feb. March April May June TOTAL ======= SALES 42000 42840 43696 44569 45460 46369 264934 COST of sales 28560 29131 29713 30306 30912 31530 180152 -------------------------------------------------------- GROSS PROFIT 13440 13709 13983 14263 14548 14839 84782 less Wages 7800 7800 7800 7800 8600 8600 48400 Rent 2050 2050 2050 2950 2950 2950 15000 Other 1500 1800 1350 1350 2480 1660 10140 1 V.V.Commander 1 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ( )^_`abcdefghijklmnopqrstuvwxyz< 1 LOGO EDITOR 1 !" 1 X - clear text f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1